VERSION 5.00
Begin VB.Form frmDisplayAR 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   8790
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   11070
   Icon            =   "frmDisplayAR.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   8790
   ScaleWidth      =   11070
   Begin VB.PictureBox Picture3 
      Appearance      =   0  'Flat
      BackColor       =   &H00808000&
      ForeColor       =   &H80000008&
      Height          =   8775
      Left            =   0
      Picture         =   "frmDisplayAR.frx":0E42
      ScaleHeight     =   583
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   692
      TabIndex        =   23
      Top             =   0
      Width           =   10410
      Begin VB.CommandButton cmdFA_WO 
         Caption         =   "Work Order"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   7845
         TabIndex        =   36
         Top             =   7440
         Width           =   2805
      End
      Begin VB.CommandButton cmdFA_Transfer 
         Caption         =   "Transfer of Asset"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   1500
         TabIndex        =   35
         Top             =   6375
         Width           =   2565
      End
      Begin VB.CommandButton cmdFA_Depreciation 
         Caption         =   "Depreciation"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   4725
         TabIndex        =   34
         Top             =   6360
         Width           =   2550
      End
      Begin VB.CommandButton cmdFA_AR 
         Caption         =   "Acknowledgment Receipt"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   7830
         TabIndex        =   33
         Top             =   4080
         Width           =   2775
      End
      Begin VB.CommandButton cmdFA_JO 
         Caption         =   "Job Order"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   7830
         TabIndex        =   32
         Top             =   6360
         Width           =   2805
      End
      Begin VB.CommandButton cmdFA_RJO 
         Caption         =   "Request for JO"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   7845
         TabIndex        =   31
         Top             =   5205
         Width           =   2775
      End
      Begin VB.CommandButton Command27 
         Caption         =   "Asset Disposal"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   4710
         TabIndex        =   30
         Top             =   4080
         Width           =   2550
      End
      Begin VB.CommandButton cmdFA_Asset 
         Caption         =   "Fixed Assets"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   4710
         TabIndex        =   29
         Top             =   5205
         Width           =   2550
      End
      Begin VB.CommandButton cmdFA_PO 
         Caption         =   "Purchase Order"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   1485
         TabIndex        =   28
         Top             =   4065
         Width           =   2550
      End
      Begin VB.CommandButton cmdFA_WRR 
         Caption         =   "Receiving Report"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   1500
         TabIndex        =   27
         Top             =   5220
         Width           =   2550
      End
      Begin VB.CommandButton cmdFA_Approval 
         Caption         =   "Approval"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   5205
         TabIndex        =   26
         Top             =   2925
         Width           =   1380
      End
      Begin VB.CommandButton cmdFA_Canvass 
         Caption         =   "Canvass Module"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   1500
         TabIndex        =   25
         Top             =   2925
         Width           =   2550
      End
      Begin VB.CommandButton cmdFA_PR 
         Caption         =   "Purchase Request"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   1500
         TabIndex        =   24
         Top             =   1785
         Width           =   2550
      End
      Begin VB.Line Line30 
         BorderWidth     =   2
         X1              =   615
         X2              =   615
         Y1              =   457
         Y2              =   495
      End
      Begin VB.Line Line29 
         BorderWidth     =   2
         X1              =   185
         X2              =   185
         Y1              =   403
         Y2              =   441
      End
      Begin VB.Line Line28 
         BorderWidth     =   2
         X1              =   396
         X2              =   184
         Y1              =   402
         Y2              =   403
      End
      Begin VB.Line Line27 
         BorderWidth     =   2
         X1              =   398
         X2              =   398
         Y1              =   385
         Y2              =   423
      End
      Begin VB.Line Line40 
         BorderWidth     =   2
         X1              =   314
         X2              =   269
         Y1              =   367
         Y2              =   367
      End
      Begin VB.Line Line38 
         BorderWidth     =   2
         X1              =   614
         X2              =   614
         Y1              =   385
         Y2              =   423
      End
      Begin VB.Line Line37 
         BorderWidth     =   2
         X1              =   483
         X2              =   522
         Y1              =   290
         Y2              =   289
      End
      Begin VB.Line Line36 
         BorderWidth     =   2
         X1              =   483
         X2              =   523
         Y1              =   366
         Y2              =   367
      End
      Begin VB.Line Line35 
         BorderWidth     =   2
         X1              =   397
         X2              =   397
         Y1              =   308
         Y2              =   346
      End
      Begin VB.Line Line34 
         BorderWidth     =   2
         X1              =   184
         X2              =   184
         Y1              =   308
         Y2              =   346
      End
      Begin VB.Line Line33 
         BorderWidth     =   2
         X1              =   347
         X2              =   269
         Y1              =   215
         Y2              =   214
      End
      Begin VB.Line Line32 
         BorderWidth     =   2
         X1              =   183
         X2              =   183
         Y1              =   232
         Y2              =   270
      End
      Begin VB.Line Line31 
         BorderWidth     =   2
         X1              =   183
         X2              =   183
         Y1              =   156
         Y2              =   194
      End
   End
   Begin VB.PictureBox Picture2 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      ForeColor       =   &H80000008&
      Height          =   8775
      Left            =   0
      Picture         =   "frmDisplayAR.frx":8E5D
      ScaleHeight     =   583
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   718
      TabIndex        =   11
      Top             =   0
      Width           =   10800
      Begin VB.CommandButton Command11 
         Caption         =   "Purchase Request"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   2550
         TabIndex        =   21
         Top             =   2640
         Width           =   2550
      End
      Begin VB.CommandButton Command12 
         Caption         =   "Canvass Module"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   2550
         TabIndex        =   20
         Top             =   3780
         Width           =   2550
      End
      Begin VB.CommandButton Command13 
         Caption         =   "Purchase Order"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   2520
         TabIndex        =   19
         Top             =   6045
         Width           =   2550
      End
      Begin VB.CommandButton Command14 
         Caption         =   "Receiving Report"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   2535
         TabIndex        =   18
         Top             =   7200
         Width           =   2550
      End
      Begin VB.CommandButton Command15 
         Caption         =   "Approval"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   2535
         TabIndex        =   17
         Top             =   4920
         Width           =   2550
      End
      Begin VB.CommandButton Command16 
         Caption         =   "Non-Trade Payable"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   7005
         TabIndex        =   16
         Top             =   2655
         Width           =   2550
      End
      Begin VB.CommandButton Command17 
         Caption         =   "Check Voucher"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   7005
         TabIndex        =   15
         Top             =   3795
         Width           =   2550
      End
      Begin VB.CommandButton Command18 
         Caption         =   "Check Issuance"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   6975
         TabIndex        =   14
         Top             =   6060
         Width           =   2550
      End
      Begin VB.CommandButton Command19 
         Caption         =   "Check Clearing"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   6990
         TabIndex        =   13
         Top             =   7215
         Width           =   2550
      End
      Begin VB.CommandButton Command20 
         Caption         =   "Approval"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   6990
         TabIndex        =   12
         Top             =   4935
         Width           =   2550
      End
      Begin VB.Label Label3 
         BackColor       =   &H00FFFFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "Trade Payable"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   3090
         TabIndex        =   22
         Top             =   1905
         Width           =   1455
      End
      Begin VB.Line Line26 
         BorderStyle     =   2  'Dash
         X1              =   367
         X2              =   139
         Y1              =   545
         Y2              =   546
      End
      Begin VB.Line Line25 
         BorderStyle     =   2  'Dash
         X1              =   368
         X2              =   140
         Y1              =   150
         Y2              =   151
      End
      Begin VB.Line Line24 
         BorderStyle     =   2  'Dash
         X1              =   368
         X2              =   368
         Y1              =   150
         Y2              =   546
      End
      Begin VB.Line Line23 
         BorderStyle     =   2  'Dash
         X1              =   140
         X2              =   140
         Y1              =   151
         Y2              =   546
      End
      Begin VB.Line Line12 
         BorderWidth     =   2
         X1              =   253
         X2              =   253
         Y1              =   213
         Y2              =   251
      End
      Begin VB.Line Line13 
         BorderWidth     =   2
         X1              =   253
         X2              =   253
         Y1              =   289
         Y2              =   327
      End
      Begin VB.Line Line14 
         BorderWidth     =   2
         X1              =   253
         X2              =   253
         Y1              =   365
         Y2              =   403
      End
      Begin VB.Line Line15 
         BorderWidth     =   2
         X1              =   253
         X2              =   253
         Y1              =   441
         Y2              =   479
      End
      Begin VB.Line Line16 
         BorderWidth     =   2
         X1              =   550
         X2              =   550
         Y1              =   214
         Y2              =   252
      End
      Begin VB.Line Line17 
         BorderWidth     =   2
         X1              =   550
         X2              =   550
         Y1              =   290
         Y2              =   328
      End
      Begin VB.Line Line18 
         BorderWidth     =   2
         X1              =   550
         X2              =   550
         Y1              =   366
         Y2              =   404
      End
      Begin VB.Line Line19 
         BorderWidth     =   2
         X1              =   550
         X2              =   550
         Y1              =   442
         Y2              =   480
      End
      Begin VB.Line Line20 
         BorderWidth     =   2
         X1              =   406
         X2              =   406
         Y1              =   272
         Y2              =   500
      End
      Begin VB.Line Line21 
         BorderWidth     =   2
         X1              =   465
         X2              =   406
         Y1              =   273
         Y2              =   273
      End
      Begin VB.Line Line22 
         BorderWidth     =   2
         X1              =   339
         X2              =   406
         Y1              =   499
         Y2              =   500
      End
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C000&
      ForeColor       =   &H80000008&
      Height          =   8775
      Left            =   0
      Picture         =   "frmDisplayAR.frx":FA59
      ScaleHeight     =   8745
      ScaleWidth      =   11025
      TabIndex        =   0
      Top             =   0
      Width           =   11055
      Begin VB.CommandButton Command1 
         Caption         =   "Sales Order"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   2430
         TabIndex        =   10
         Top             =   2130
         Width           =   2550
      End
      Begin VB.CommandButton Command2 
         Caption         =   "Price Approval"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   2430
         TabIndex        =   9
         Top             =   3270
         Width           =   2550
      End
      Begin VB.CommandButton Command3 
         Caption         =   "Delivery Receipt"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   2400
         TabIndex        =   8
         Top             =   5535
         Width           =   2550
      End
      Begin VB.CommandButton Command4 
         Caption         =   "Sales Invoice"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   2415
         TabIndex        =   7
         Top             =   6690
         Width           =   2550
      End
      Begin VB.CommandButton Command10 
         Caption         =   "Credit Approval"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   2415
         TabIndex        =   6
         Top             =   4410
         Width           =   2550
      End
      Begin VB.CommandButton Command5 
         Caption         =   "Receipt"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   6885
         TabIndex        =   5
         Top             =   2145
         Width           =   2550
      End
      Begin VB.CommandButton Command6 
         Caption         =   "Deposit Slip"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   6885
         TabIndex        =   4
         Top             =   3285
         Width           =   2550
      End
      Begin VB.CommandButton Command7 
         Caption         =   "Pulled-out Checks"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   6855
         TabIndex        =   3
         Top             =   5550
         Width           =   2550
      End
      Begin VB.CommandButton Command8 
         Caption         =   "Replacement Checks"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   6870
         TabIndex        =   2
         Top             =   6705
         Width           =   2550
      End
      Begin VB.CommandButton Command9 
         Caption         =   "Bounced Checks"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   6870
         TabIndex        =   1
         Top             =   4425
         Width           =   2550
      End
      Begin VB.Line Line1 
         BorderWidth     =   2
         X1              =   3675
         X2              =   3675
         Y1              =   2685
         Y2              =   3255
      End
      Begin VB.Line Line2 
         BorderWidth     =   2
         X1              =   3675
         X2              =   3675
         Y1              =   3825
         Y2              =   4395
      End
      Begin VB.Line Line3 
         BorderWidth     =   2
         X1              =   3675
         X2              =   3675
         Y1              =   4965
         Y2              =   5535
      End
      Begin VB.Line Line4 
         BorderWidth     =   2
         X1              =   3675
         X2              =   3675
         Y1              =   6105
         Y2              =   6675
      End
      Begin VB.Line Line5 
         BorderWidth     =   2
         X1              =   8130
         X2              =   8130
         Y1              =   2700
         Y2              =   3270
      End
      Begin VB.Line Line6 
         BorderWidth     =   2
         X1              =   8130
         X2              =   8130
         Y1              =   3840
         Y2              =   4410
      End
      Begin VB.Line Line7 
         BorderWidth     =   2
         X1              =   8130
         X2              =   8130
         Y1              =   4980
         Y2              =   5550
      End
      Begin VB.Line Line8 
         BorderWidth     =   2
         X1              =   8130
         X2              =   8130
         Y1              =   6120
         Y2              =   6690
      End
      Begin VB.Line Line9 
         BorderWidth     =   2
         X1              =   5970
         X2              =   5970
         Y1              =   2415
         Y2              =   6990
      End
      Begin VB.Line Line10 
         BorderWidth     =   2
         X1              =   6855
         X2              =   5970
         Y1              =   2430
         Y2              =   2430
      End
      Begin VB.Line Line11 
         BorderWidth     =   2
         X1              =   4965
         X2              =   5970
         Y1              =   6975
         Y2              =   6990
      End
   End
End
Attribute VB_Name = "frmDisplayAR"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'IT Group Inc. 2005.09.23

Option Explicit

'Object variables



'Other declaration
Public sBit As String

Private Sub cmdFA_Approval_Click()
    frmToolApproval.Show
    frmToolApproval.ZOrder
End Sub

Private Sub cmdFA_AR_Click()
    frmGLIntAR.Show
    frmGLIntAR.ZOrder
End Sub

Private Sub cmdFA_Asset_Click()
    frmMaintFixedAssets.Show
    frmMaintFixedAssets.ZOrder
End Sub

Private Sub cmdFA_Canvass_Click()
    frmEnhanceCanvass.Show
    frmEnhanceCanvass.ZOrder
End Sub

Private Sub cmdFA_Depreciation_Click()
    frmARFixedAssetDep.Show
    frmARFixedAssetDep.ZOrder
End Sub

Private Sub cmdFA_JO_Click()
    frmEnhanceJobOrder.Show
    frmEnhanceJobOrder.Show
End Sub

Private Sub cmdFA_PO_Click()
    frmAPPurchaseOrder.Show
    frmAPPurchaseOrder.ZOrder
End Sub

Private Sub cmdFA_PR_Click()
    frmAPPurchaseRequest.Show
    frmAPPurchaseRequest.ZOrder
End Sub

Private Sub cmdFA_RJO_Click()
    frmEnhanceJobOrderRequest.Show
    frmEnhanceJobOrderRequest.ZOrder
End Sub

Private Sub cmdFA_Transfer_Click()
    frmFATransfer.Show
    frmFATransfer.ZOrder
End Sub

Private Sub cmdFA_WO_Click()
    frmEnhanceWorkOrder.Show
    frmEnhanceWorkOrder.ZOrder
End Sub

Private Sub cmdFA_WRR_Click()
    frmAPWRR.Show
    frmAPWRR.ZOrder
End Sub

Private Sub Form_Load()
    Set FrmName = Me
    'FormLocking True
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , , , , True
    Left = 2670
    Top = 0
    Me.Width = ITGLedgerMain.Width - 2870
    Me.Height = frmModuleExplorer.Height
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , True
    BitVisible ITGLedgerMain.tbrMain
    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = False
 
    Me.Tag = "Close"
    Set frmDisplayAR = Nothing
    
    lCloseWindow = True
    
'    'oForm(Me.Tag).Mode = 1
'    'oForm(Me.Tag).Tag = Me.Tag
End Sub

'Activate your Toolbar Mode
Private Sub Form_Activate()
    TBBitReload
    If RepName = "AR" Then
        Picture1.ZOrder
        Picture1.Width = Me.Width - 90
        Picture1.Height = Me.Height - 370
    ElseIf RepName = "AP" Then
        Picture2.ZOrder
        Picture2.Width = Me.Width - 90
        Picture2.Height = Me.Height - 370
    ElseIf RepName = "FA" Then
        Picture3.ZOrder
        Picture3.Width = Me.Width - 90
        Picture3.Height = Me.Height - 370
    End If

End Sub

Public Sub TBCloseWindow()
    Unload Me
End Sub

'Reload menu buttons (do not delete this sub)
Public Sub TBBitReload()
    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = True
    BitReload ITGLedgerMain, Me, ITGLedgerMain.tbrMain, sBit
    Set FrmName = Me
End Sub
